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Kemudian klik admin langsung 
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Sudah tampil phpmyadmin 
Bikin databse nya 
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Databases SQL Ñ Status Useraccounts | e Export & Import Settings Replication Variables D Charsets Engines More 


reate database 4j 
information schema 


mysql 
performance schema 


phpmyadmin 


Database ollation 
test Dam 


Total: 5 
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1 Note: Enabling the database statistics here might cause heavy traffic between the web server and the MySQL server 


* Enable statistics 


| ang Dag A | 8 pua 


ili Kom br TIN zc n 
Databse ada tabel dan field 
Sementara buat databse dahulu 
Next nanti buat tabel dan field 


Buka oledbc 
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phpMyAdmin 


Le Structure Search Query ` e Export x Import Operations. Privileges Routines & Events Triggers Y More 
ame e Query p P pe 9 oa 


+, No tables found in database 


belajar vb å Create table y ODBC Data Source Administrat 
information schema. 
mysqi 


performance schema 


ke DSN SywemDSN Se DSN D 
Jer Data Sources 


phpmyadmin 
ever ( di “ndx 


sis. ' ix, "alam, "ai 


test 


LETT 
ep pm 
KE 
03:11 C 17:05 
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Setelah buka klik add 
Cari yg ini 
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\ Search Query ` e Export åå Import Operations Privileges Routines © Events Triggers ` * More 


+, No tables found in database 


belajar vb à Create table - 


nformation schema - 
Jer DSN| Create New Data Sou 
mysq! 


performan: 
Select a diver for which you wart to set up a data source 
phpmyadmin 


Bb gudang (sg 


03:27 
Ho mm i20 


Disini bole ketikan 

User nya root 

Dari sini 
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localhost / 1270011 / belajar yò X + 
C © localhost = on 
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phpMyAdmin 


é c Query D Export & Import Operations Privileges Routines 
ale 8 Query p p ps 9 


Events Triggers ` e More 


& Users having access to “belajar vb 


User name Host name Type Privileges Grant Action 
belajar vb EE A 


B Eat 


ation schema - 
= global «x rancurces E Edit privileges —4 Export 


& Edit privileges. Gi Exp 


performance schema 
phpmyadmin 


test 


LETT 


Hak akses localhost 
Jika koneksinya berhasil maka ada mucul list databse 
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xcalhost. vr on 
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tur sat \ Search) Connector/ODBC 


& Users having access to "t ul Connecton Parameters 
Dota Source Name: 
User name Host name Tvpe Priv 
- Seo 
kar DSN a TOMP Server 
We DSN sj 


D Named Poe 
performance schema Jaer Data Sol 


phpmyadmin 


test 


An ODBC User data soun 
User data source is oniy v 


04:15 17:05 


Pilih beljar vb karena iging belajar 

Sekarang sudah koneksi antar oldbc dgn databsekita 
Buka visual studio 

Pilih visual basic lalu windows form 

Nama nya terserah buat apa 

Net nya biar 4.6 
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>| ku») zz) Eb» pe | 
Kemudian simpan di browser nya klik 
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E) WindowsApps 


Yesterday 
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|] Ke ii SSM ml 
Simpan disini lalu klik oke 
Karena disini mengunakan module agar setiap buat form tingal pangil koneksinya 
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06:27 


Ih ep» Com 35004 


Tidak perlu lagi buat deklarasi diatas sini 
Sini akan membuat module 


Klik kanan pada project kemudian add lalu module 
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06:41 


B| kap» Pat iz 


MP | 
Lalu terserah buat nama apa api default tetepa kasih module 
Lalu oke 
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06:55 


HI «mn rim) Fs c d 
Klik diatasnya karena mengunakan odbc 

Lalu kita import 

kemudian didalam buat 


public konection 

dibawah nya buat public 

sementara buat seperti 

kemudian public sub kasih nama bukadb 

lalu pangil bukadb lalu 

driver = mysgl yg tadi kita buat di odbc 

kemudian database ; uid root sampai disini dahulu 
lalu pangil conn nya newConection buka db 

lalu buat kondisi nya jika terttup maka con nya buka 
lalu kasih msgBox Koneksi database berhasil 
disini saya senang buat Try 

jadi sebelumnya kita cut saja 

masukan ke try jika berhasil maka jadi pesan 
kalau gagal muncul pesan ini 
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UU «mn rim [mx co d 
Setelah selesai buat module 


Buka form1 desain kita tambahkan buttonnya untuk tes koneksi 
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Setelah itu kita double klik — 
Pangil saja bukadb() 
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UU wm tim mS pe | 
Sekarang tingal pangil saja koneksi karena sudah buat module nya 

Coba di run mka masih gagal 

Seharus nya tempatdb 
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Kemudian yg ini kita taruh 
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Taruh disni 
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Kemudian disave all 


Dirun lagi 

Maka berhasil 

Sudah bisa koneksi vb ke database 

Gimana kalau databse nya gagal maka coba dihapus sql 
Maka ada tulisan gagal 

Kemudian bisa ditambahkan vb information koneksi sukses 
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Hoo mn iim SE SÅ e S 
Coba koneksi nya bener 
Maka akan muncul tanda seru 
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Diagnostics session: 5 seconds 


4 Events 
b: 


4 Process Memory (MB) 
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Kalau gagal 
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ep asp 


Diagnostics cession: 2 seconds 


| 
4 A Koneksi Database Gagal 


ox 


Budd - IntelliSense 
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Tidak perlu buat koding koneksi setiap form cukup pangil saja 
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Jadi buat sesuatu aplikasi dgn mudah 


Module 
System.Data.Odbc 


conn OdbcConnection 


Public tempatDB As String 
Sub bukaDB() 
Try 
tempatDB = ("Driver-(MYSQL ODBC 3.51 
Driver);Database=db keuangan;uid=root") 
conn - New OdbcConnection(tempatDB) 
If conn.State - ConnectionState.Closed Then 
conn.Open() 
MsgBox("Koneksi Database Berhasil", vbInformation, "Koneksi 
Sukses") 
End If 
Catch ex As Exception 
MsgBox("Koneksi Database Gagal", vbExclamation, "Koneksi Gagal") 


End Try 
End Sub 


End Module 


Form 
Public Class Forml 
Private Sub Buttonl Click(sender As Object, e As EventArgs) Handles 
Buttonl.Click 
bukaDB() 


End Sub 
End Class 


